home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / FILEXIST.BAS < prev    next >
BASIC Source File  |  1991-11-04  |  2KB  |  40 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: FILEXIST.BAS       PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 11/04/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM ALLOWS YOU TO TEST WHETHER A FILE EXISTS
  7. '
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. CLS
  11. INPUT "PLEASE ENTER A FILENAME: ";FILENAME1$
  12. '** THE FOLLOWING BLOCK OF CODE WILL WORK FOR EITHER TURBO OR POWERBASIC.
  13. '** IF THE DISK IS WRITE PROTECTED, YOU WILL GET AN ERROR TRYING THE "KILL"
  14. '** IF THE FILE EXISTS WITH A LENGTH OF 0, IT WILL "NOT EXIST" HERE...
  15. OPEN FILENAME1$ FOR BINARY AS #1
  16.    IF LOF(1) < 1 THEN       '** FILE LENGTH LESS THAN 0 **
  17.       LOCATE 15,5
  18.       PRINT "THE INPUT FILE DOES NOT EXISTS."
  19.       CLOSE #1              '** CLOSE THE NON-EXISTANT FILE **
  20.       KILL FILENAME1$       '** DELETE 0 LENGTH FILE WE'VE CREATED **
  21.       DELAY 2.5             '** PAUSE FOR USER TO READ MESSAGE **
  22.       LOCATE 22,1
  23.       END                   '** END PROCESSING HERE **
  24.    END IF
  25. CLOSE #1                    '** CLOSE IN CASE IT DID EXIST **
  26.  
  27. LOCATE 15,5:PRINT "FILE ";FILENAME1$;" EXISTS."  '** INFORM THE USER **
  28.  
  29. '** THE FOLLOWING CODE WILL WORK WITH POWERBASIC V2.10A OR GREATER **
  30. '** AND SHOULD NOT CREATE PROBLEMS AS ABOVE.  ABOVE DOES WORK FINE FOR **
  31. '** MOST SITUATIONS.  USE THIS ONE IF AVAILABLE (UNCOMMENT FIRST). **
  32. 'TEST$ = DIR$(FILENAME1$,0)
  33. 'IF TEST$ = "" THEN
  34. '   LOCATE 15,1:PRINT "FILE ";FILENAME1$;" DOES NOT EXIST."
  35. 'ELSE
  36. '   LOCATE 15,1:PRINT "FILE ";FILENAME1$;" EXISTS."
  37. 'END IF
  38.  
  39. END
  40.